`mercury` <-
function (jday=jd()) 
{
	planet(jday,
	name="Mercury",
	inner=TRUE,
	tp=0.240852,
	ep=60.750646,
	oo=77.299833,
	e=0.205633,
	a=0.387099,
	i=7.004540,
	om=48.212740,
	th=6.74,
	mag=-0.42)

}

